home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
p063b9s.zip
/
PORTAL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-06-26
|
5KB
|
182 lines
PROGRAM PortalOfPower;
{╔══════════════════════════════════════════════════════════════════════════╗}
{║ Main program Last changed: 26.06.96 SA ║}
{║ ║}
{║ (C) Copyright 1989-96 by ║}
{║ Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager ║}
{║ ║}
{║ This source may not be given to anybody, without the written permission ║}
{║ from The Portal Team. ║}
{╚══════════════════════════════════════════════════════════════════════════╝}
{$I POPDEFS.INC}
USES
Use32,
{$IFDEF StackCheck}
OpStack,
{$ENDIF}
{$IFNDEF NoOverlay}
OvrlayIn,
{$ENDIF}
Dos,OpCrt, OpDos, OpDate, OpWindow, OpEntry,
{$IFNDEF OS2}
OpMacro,
{$ENDIF}
OpMenu,
OpLArray,
Init, YooHoo2U, Config, MailCfg, Display, Modem, Com,
Globals, RBrowser, NodeList, OutMan, NlMan, Util, ZMisc, ZSend, ZReceive,
TextEdit, ArcView, AreaMan, Event, Unixdate, DumbTerm, FileFwd,
NlComp, MailUtil, FileUtil, Session, MemStat, ScrBlank, OutInfo, FallBack,
PFix, FuncReq, DosShell, MTask, Send2Utl, UserEdit, List, PoPTypes,
NewExp, NewImp, FuncSrvr
{$IFDEF MSGOBJECT}
, MkFile, MkGlobt, MkMsgAbs, MkMsgEzy, MkMsgFid, MkMsgHud, MkMsgJam,
MkMsgSqu, MkObject,
OpBrowse,
PopEd
{$ENDIF}
{$IFNDEF OS2}
, Extend
, OpExec
{$ENDIF}
{$IFNDEF PMode}
, IsRes
{$ENDIF}
{$IFDEF MsgPack}
, MsgPack
{$ENDIF}
;
{$IFNDEF NoOverlay}
{$O OpEdit} {$O OpEntry} {$O OpDir} {$O OpLArray} {$O OpDos}
{$O OpMemo} {$O OpMenu} {$O OpPick} {$O OpDate} {$O OpFrame}
{$O OpMenu} {$O OpMacEd} {$O OpHelp} {$O OpEditor} {$O OpSelect}
{$O OpFEdit} {$O OpField} {$O OpAbsFld} {$O OpCal} {$O OpCalc}
{$O OpQkRef} {$O OpBCD} {$O OpRoot} {$O PoPHelp}
{$IFDEF Alpha}
{$O NetFile} {$O LogFile}
{$ENDIF}
{$O Config} {$O Init} {$O OutMan} {$O OutUtil} {$O TextEdit}
{$O FileUtil} {$O ZMisc} {$O ZSend} {$O ZReceive} {$O NlMan}
{$O UnixDate} {$O Event} {$O ArcView} {$O DumbTerm} {$O PingAnsi}
{$O TpAvatar} {$O Protocol} {$O YooHoo2U} {$O WZSend} {$O Util}
{$O FileFwd} {$O NlComp} {$O BiMail} {$O OpusMsg} {$O MailCfg}
{$O FuncReq} {$O Session} {$O MailUtil} {$O StrUtil} {$O PFix}
{$O Input} {$O FallBack} {$O PTpl} {$O ParseReq} {$O Janus}
{$O TransVid} {$O MusicA} {$O OutInfo} {$O AreaMisc} {$O PoPStatu}
{$O MemStat} {$O ScrBlank} {$O DosShell} {$O MTask} {$O Send2Utl}
{$O RBrowser} {$O Tick} {$O Usage} {$O BTree} {$O Opus_173}
{$O UserEdit} {$O List} {$O InterCom} {$O Resource}
{$O Nodelist} {$O Modem} {$O Macro} {$O Display}
{$O MailScan} {$O MailPack} {$O MSMisc} {$O NewExp} {$O NewImp}
{$O Fax} {$O FaxConv} {$O FuncSrvr} {$O BBSDef} {$O OutMan2}
{$O AreaMan} {$O AMList} {$O AMFBBS} {$O AMRA2}
{..$O OproUtil}
{..$O SimpDB}
{$IFDEF Repacker}
{$O Repacker}
{$ENDIF}
{$IFDEF MsgPack}
{$O MsgPack}
{$ENDIF}
{$IFDEF MSGOBJECT}
{$O MkFile} {$O MkGlobt} {$O MkMsgAbs} {$O MkMsgEzy} {$O MkMsgFid}
{$O MkMsgHud} {$O MkMsgJam} {$O MkMsgSqu} {$O MkObject} {$O OpBrowse}
{$O PoPEd}
{$ENDIF}
{$ENDIF}
{$IFDEF PMode}
{$S 16384}
{$G PortalOfPower Session}
{$G TextEdit OpEditor OpMemo}
{$G DumbTerm PingAnsi TpAvatar MusicA}
{$G Config MailCfg Init}
{$G ZSend ZReceive ZMisc}
{$G Janus}
{$G YooHoo2U FallBack WzSend ParseReq BiMail}
{$G FileFwd Tick}
{$G Keyboard MemStat DosShell OpExec ScrBlank}
{$G Fossil Modem}
{$G AreaMan AreaMisc List}
{$G OutMan}
{$G UserEdit}
{$G NLComp}
{$G NlMan}
{$G SimpDB NetFile Share FileUtil LogFile}
{$G Crc UnixDate}
{$G Display TransVid}
{$G Input OpDir}
{$G StrUtil OpString}
{$G Nodelist BTree OpLArray}
{$G PoPHelp OpHelp}
{$G Macro OpMacro OpMacEd}
{$G OpEntry OpEdit OpField OpFEdit OpAbsFld}
{$G OpWindow OpFrame OpMenu}
{$IFNDEF NOMAILSCANNER}
{$G MailScan MailPack}
{$ENDIF}
{$ENDIF}
{$IFOPT G+}
FUNCTION Is286Able: Boolean; ASSEMBLER;
ASM
PUSHF
POP BX
AND BX,0FFFH
PUSH BX
POPF
PUSHF
POP BX
AND BX,0F000H
CMP BX,0F000H
MOV AX,0
JZ @@1
MOV AX,1
@@1:
END;
{$ENDIF}
BEGIN
{$IFNDEF PMode}
{$IFOPT G+}
IF NOT Is286Able THEN
BEGIN
Writeln('Need an 80286-compatible system to run Portal of Power v'+Ver);
Halt(249);
END;
{$ENDIF}
IF IsLoaded('PoPower',UserHook) THEN
BEGIN
WHILE KeyPressed DO
IF ReadKey=#0 THEN ;
StuffString(#27+'EXIT'+#13);
Halt;
END;
Install('PoPower',Nil);
IF Not IsLoaded('PoPower',UserHook) THEN
BEGIN
WriteLn('Error installing Portal of Power');
Delay(1000);
END;
OpExec.UseXmsIfAvailable:=True;
OpExec.UseEmsOverXms:=False;
i16:=IsRes.Init16;
r16:=IsRes.Restore16;
{$ENDIF}
{$IFNDEF OS2}
ExecDSwap:=OpExec.ExecDosSwap;
{$ENDIF}
InitPortal;
PortalMain;
FinishPortal;
END.